home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / H245.ZIP / NFSRC21.ZIP / NWTTS4.ASM < prev    next >
Assembly Source File  |  1991-08-16  |  3KB  |  103 lines
  1. ; File......: NWTTS4.ASM
  2. ; Author....: James R. Zack
  3. ; CIS ID....: 75410,1567
  4. ; Date......: $Date:   15 Aug 1991 23:07:02  $
  5. ; Revision..: $Revision:   1.2  $
  6. ; Log file..: $Logfile:   E:/nanfor/src/nwtts4.asv  $
  7. ; 
  8. ; This is an original work by James Zack and is placed in the
  9. ; public domain.
  10. ;
  11. ; Modification history:
  12. ; ---------------------
  13. ;
  14. ; $Log:   E:/nanfor/src/nwtts4.asv  $
  15. ;  
  16. ;     Rev 1.2   15 Aug 1991 23:07:02   GLENN
  17. ;  Forest Belt proofread/edited/cleaned up doc
  18. ;  
  19. ;     Rev 1.1   14 Jun 1991 19:54:48   GLENN
  20. ;  Minor edit to file header
  21. ;  
  22. ;     Rev 1.0   01 Apr 1991 01:03:44   GLENN
  23. ;  Nanforum Toolkit
  24. ;  
  25.  
  26. ; $DOC$
  27. ; $FUNCNAME$
  28. ;     FT_TTSEND()
  29. ; $CATEGORY$
  30. ;     NetWare
  31. ; $ONELINER$
  32. ;     End explicit or implicit transaction under NetWare's TTS
  33. ; $SYNTAX$
  34. ;     FT_TTSEND() -> nResult
  35. ; $ARGUMENTS$
  36. ;     None
  37. ; $RETURNS$
  38. ;         0 - Transaction tracking finished (Success)
  39. ;       253 - Transaction tracking disabled
  40. ;       254 - Transaction ended, records locked
  41. ;       255 - No explicit transactions active
  42. ;     > 255 - Transaction number
  43. ; $DESCRIPTION$
  44. ;    For further information on NetWare's Transaction Tracking System (TTS),
  45. ;    consult your NetWare manuals.
  46. ; $EXAMPLES$
  47. ;    nResult := FT_TTSEND()
  48. ;    DO CASE
  49. ;       CASE nResult == 0
  50. ;          ? "Transaction ended"
  51. ;       CASE nResult == 253
  52. ;          ? "Transaction tracking disabled"
  53. ;       CASE nResult == 254
  54. ;          ? "Transaction ended, records locked"
  55. ;       CASE nResult == 255
  56. ;          ? "No explicit transactions active"
  57. ;       OTHERWISE
  58. ;          ? "Transaction number " + Ltrim(Str(nResult))
  59. ;    ENDCASE
  60. ; $SEEALSO$
  61. ;    FT_TTSABORT() FT_TTSAVAIL() FT_TTSBEGIN() FT_TTSSTAT()
  62. ; $END$
  63.  
  64.  
  65. PUBLIC    FT_TTSEND
  66. EXTRN     __RETNL:FAR
  67. EXTRN     __RET:FAR
  68. _NanFor    SEGMENT 'CODE'
  69.           ASSUME cs:_NanFor
  70. FT_TTSEND PROC    FAR
  71.           push    bp
  72.           mov     bp,sp
  73.           push    ds
  74.           push    es
  75.           push    si
  76.           push    di
  77.           mov     ah,0c7h          ; Novell API function c7
  78.           mov     al,01h           ; Subfunction 02
  79.           int     21h              ; TTS Begin Transaction
  80.           mov     ah,00h
  81.           cmp     al,00
  82.           je      GDOP
  83.           xor     cx,cx
  84.           xor     dx,dx
  85. GDOP:     push    cx
  86.           push    dx
  87.           call    __RETNL
  88.           add     sp,4
  89.           pop     di
  90.           pop     si
  91.           pop     es
  92.           pop     ds
  93.           pop     bp
  94.           call    __RET
  95.           ret
  96.  
  97. FT_TTSEND   endp
  98.  
  99. _NanFor   ends
  100.  
  101.           end
  102. 
  103.